home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / st80_r41.lha / st80_r41 / OldstyleIcons.st < prev    next >
Text File  |  1993-07-23  |  1KB  |  35 lines
  1. "    NAME        OldstyleIcons
  2.         AUTHOR          Bill Voss (voss@cs.uiuc.edu)
  3.         FUNCTION    Restore the old pre-R4 simple style of icon.
  4.         ST-VERSIONS     ST80 R4.1 and R4.0
  5.     PREREQUISITES    none
  6.     DISTRIBUTION      world
  7.     VERSION    ID    1
  8.     VERSION DATE    August 22, 1992
  9.     SUMMARY
  10.  
  11.     When used with a good window manager (one that does not impose
  12. arbitrary limits on icon labels) this code restores the simple old
  13. style of icon by getting rid of the bitmaps.
  14.     At the moment I am using tvtwm as my window manager.
  15.  
  16. From Objectworks(r)\Smalltalk, Release 4 of 25 February 1991 on 26 November 1991 at 7:16:15 pm"!
  17.  
  18.  
  19.  
  20. !Window methodsFor: 'accessing'!
  21.  
  22. setIconMask: aMask
  23.     "Set the receiver's icon mask to be aMask."
  24. "
  25.     <primitive: 951>
  26.     self primitiveFailed
  27.  
  28.     I only want the text label the way Version 2.5 used to do it.
  29.     By commenting out this method, using tvtwm, and telling ST to use long labels with
  30. Window maxIconLabelLength: SmallInteger maxVal.    
  31.     I get the traditional behaviour.
  32.  
  33.     -Bill Voss"
  34.     ^self! !
  35.